home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / DESIGN2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  14 lines
  1. 100  '***************************************************
  2. 110  '**  design2 : a simple exercise for put and get  **
  3. 120  '***************************************************
  4. 130  SCREEN 2 : KEY OFF : CLS : DIM X(3000) : A = 10
  5. 140  CIRCLE (300,100),90
  6. 150  PAINT (300,100),1
  7. 160  GET (200,50)-(400,150),X
  8. 170  CLS
  9. 180  FOR Y = 1 TO 439 STEP 5
  10. 190  A = SIN(Y*0.015) * 45 + 50
  11. 200  PUT (Y,A),X,XOR
  12. 210  NEXT
  13. 220  GOTO 220
  14.